home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs46.d81
/
vocali.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
34KB
|
5 lines
10 POKE56,160:CLR
20 PRINT"[147]FOR 10.5 SECONDS OF SOUND, PRESS RETURN"
30 GETA$:IFA$=CHR$(13)THENPOKE53,10:POKE54,128:SYS2304:SYS2340:GOTO20
40 GOTO30